﻿Public Class frmTemplateMethod
    Private auto As Automovil

    Private Sub frmTemplateMethod_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Output.Print("-------------------------")
        Output.Print("--Patrón TemplateMethod:")
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        auto = New AutomovilManual
        auto.Desplazar()
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        auto = New AutomovilAutomatico()
        auto.Desplazar()
    End Sub
End Class